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TO: COM rr and FORTRAN Frogrtmrners 

FROM? Do C„ MatJatos^ Department of Chemica'! Engineering 

SUBJECT: COMIT Subroutines for Generating FORTRAN Programs 

5MTRODUCT3 0N 

The purpose of this memo Is to describe certain closed 
C0M5T (X>^.5 subroutines which are helpful for generating 
FORTRAN Cl^D programs by means of C0M3T pro.trams. This 
type of progranimlnfi Is useful^ since It allows one to obtain 
frons the mathematical formulation of a problem^ e.,gc the 
differential equations descrlbhiR; !t^ a FORTRAN program 
capab^ie of producing numer-Ical solutions of that problenio 
Such a profiraniimlng approach Is presently belnf< used in the 
development of a COf.yT program for the automatic numerical 
solution of a class of non-linear partial differential 
equations associated v;Ith diffusion and chemical reaction 
C.[t*l;*&)c It Is In connection v;lth this work that the 
subroutines described In this memo were developedn 

The present memo contains Information on subroutines 
COUWT and STATM^ which permit the sequential number I ng of 
FORTRAN statements^ the FOR-ilO package of subroutines^ which 
deals w5th the Input and output of the data of a FORTRAN 
program,, and subroutine LL,, which allovjs the automatic 
generation of continuation cards vihenever a FORTRAN record 
produced by the COM ST program e:^:ceeda 72 characters o The 
tasks these subroutines can do are quite simple when 
performed directly by a human programmer o Nevertheless,, 
they do require an appreciable amount of programming effort 
when performed Indirectly by means of another program^. 

3t 5s assumed throufjhout this merao that t'ne reader Is 
fairly familiar with both COMiT and FORTRAMo Listings of 
the various subroutines preceded by a discussion Intended to 
facilitate their use may be found In the Append ij:„ 
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NUMBER 3fJ(5 OF FORTRAN STATEMSMTSi THE C0U^3T A^iD STAIN SUBROUTINES 

FORTRAM statements are label ad by means of an Integer 
(vjh?ch appears In columns l-ii) so that they can he fef erred 
to by means of this number u-t other statements ., 3f £3 
FORTRAN progrsrn is to be generated by a CGM!T proKrani^ the 
latter should be capable of producing Jntei^iers sequential ly^ 
one of v.'h5ch 5s used every time the need for numbering? a 
statement arises^ This can be accomplished by means of 
subroutines COUNT and STATMo The main program transfers to 
C0U^3T after introducing .tvio, return constituents In shelf 20 
so that control vjill pass ,dJ„5;v?£,tXvc vs'om COUNT to STATM,, 
Upon return to the main proEramj the vjorkspace i7?ll contain 
a i^etuni constituent follov^ad by an integer j, a niimber of 
blanks and the contents v-jhich the workspjce had v;hen COUNT 
was entered o The dlj^its of the integer and the blanks 
3U;ays add up to si^: characters (both these strings are 
fully expanded) and^ therefore^, they can be used as columns 
l-S of a FORTRAM statement, 8f, before calling COUNT^ the 
vjorkspace contained at its beginning the remaining columns 
of the statement,, upon return to the main program 5t v\Jou1d 
contain a complete numbered FORTRAN statement* To 
initialize COUNT the main pro^^ram has to introduce Into 
shelf 122 a fully e;!:panded integer followed by the tv;o 
marker constituents •••N and ■•"•?« Every time COUNT Is called 
it increments the Jntei^er it finds In shelf 122 by one. It 
uses the incremented number for label in,*; a FORTRAN statement 
and it also replaces by It the number In shelf I22« Thus 
COUNT need be Initialised only once and from then on 5t will 
keep numbering statements sequentially,. 

Ones a FORTRAM statement has been numbered, the main 
COMIT program can copy Its number and Insert It in another 
statement v/hsch refers to the statement numbered by COUNT 
and STATNr An example of the use of these tv^o subroutines 
can be found In the next sectsooj v^hlch deals K'ith the 
FOR" 30 package* While using COUNT and STATN for numbering 
statements a programmer ought to be careful that these 
routines produce numbers whfci-t are always less than 32^?68o 
This is a restriction imposed by the FORTRAN system. He 
should also Initialize COUF^JT J;i a v/ay that v/lll guarantee 
that statements numbered by Jt do not have numbers which 
coincide with those of statements labeled directly by the 
main progranic For ejiample,- In the case of the FOR- 10 
package (see the neMt section) COUNT should not assign 
numbers 1 and 2 to any of the FORPWT statements It numbers,, 
since these two labels are reserved for tv;o FORMAT 
statements produced by the maJii program stselfe 

READING AND PRINTI^5G OF D.iTA: THE FOR- 30 PACKAGE 

Most FORTRAN programs are written In a way that enables 
them to read In data before they perform any actual 
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cslcu^atlonsc Thus they can be run again and again vilth 
different fia£s of datcSo in addition many programmers have 
the FORTRAl'! program print out the numbers 5t just read so as 
to have the output documented by the values of the constant 
parameters that define a particular casculatlono This is 
also convenient for detecting certain types of errors^ !f a 
FORTRAN program Js to be generated automatically by means of 
a COMST program^ the latter should be able to incorporate 
Into the former 5nput"0Utput statements performing the tasks 
mentioned aboveo For enample^ if a COMJT program whose 
input is a system of partial dJfferential equations is to 
produce a FORTRAN program for solving them numarJcaHy^ as 
is the case in (^#5,^6.)^ the CC5N5 8T program v;i H first have to 
scan the differential equations for names of floating and 



'Ir.ed point (in the FORTRAN sense) variables, 



Once these 



has to 
out 

these constant parameters o This task can be accomplished by 
means of the F0R°3 packages 



tvjo lists have been complied^ the COMIT program 
generate FORTRAN statements for reading In and printing 



The FOR" 3 package consists of 
subs'outines arranged as folioviss 



five closed COMIT 



EMTRY- 



E:nT 




FOR" JO can be called after any number 

floating variabl 



compressed form) 
properly initial 
For e."Emple,. if 
ALPHAs'-BETA-r-EPSH 
J*J<-K-:-lAMDA-:-!OTA 
upon return to t 
set of expanded 
in the bon bslov^ 
printed In GOMiT 



e nsmas have been introdu 
# f!j;ed ones in shelf 2^ 
ized as described in the 

the FOR^iO package f 
W-:-R<-G-5-H*FRvOMF.^ 
vKA-:-lALPKAvNAB and in sh 
he main program the v/orks 
FORTRAN statements vihSch 

(this Is actually their 

format A)s 



of J^&ml FORTRAM 
ced in shelf 1 (in 
and COUMT has been 
preceding sections 
inds in shelf 1: 
in shelf 2: 
elf 122 J rt£}.:.,v^^:M■.p^ 
pace will contain a 
are shovin enclosed 

form after being 
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f-0RMAT(i>E18,S) 
F0RMAT(»<.J1S) 





READ 1^ ALPHA^ BETA., EPS3LH^ R 




PRIMT 5 


5 


FORMATC 13X5HALPHA^ IIjXHHBETA^ 12X6HEPS \ LN^ i7XlHR ) 




PRJNT 1^ ALPHA^ BETA^ EPSU.W^ R 




READ 1^ n^ H^ \=R, ONE 




PRJMT 6 


6 


FORMATC 17X1HG^17X1HH^16X2HFR^15X3K0NF:) 




PRiNT 1, Q, H^ FR„ ONE 




READ 2, U J^ K,, LAMDA 




PR 3 NT 7 


7 


FORMATC 17XlHM7XlHJ^17XlH:<^13X5HLAMBnA) 




PR8MT 2^ I, J^ K„ LAMDA 




READ 2., SOTA^ !<A^ LALPHA^ MAB 




PR J NT 8 


& 


FORMATC llfXHIOTA^16X2HKA,,12X6HLAPHA^i5X3HNAB) 




PR 3 NT 2,, IOTA., KA^ LALPHA,, MAB 



CALL F.XJT 



The first statenent reads In the fJrst four floatsng 

vsi-3ab1es In FORMAT lo The next tv;o statements print out 
labels for each of these four variables^ The fourth 
statement prints out the four variables themselveso This 
cyc'Je 5i5 repeated until the list of floating varfab'Ses Is 
sxhaustedc Then the fixed point variables are taken care of 
by means of similar sets of staterfients except that FORNAT 2 
is used. The last cycle corresponding to each list may read 
in four;, three^ tvjo or one variable depending on the number 
of them contained In the UEt, FOR-JO functions properly 
even v^han one or both lists are empty « FORMATS 1 and 2 
v;h!ch are used by some of the statements generated by FOR"- 8 
are shov^n r5;5ht on top of the bon„ They are considered as 
be5nri amon?x the simplest FORTRAW FORMATS C 2.) „ The COMTf 
program that uses F0R-50 should Introduce them Into the 
FORTRAN program^ Both statements can always be introduced 
even though one or both variable lists might be empty^ since 
an unused FORf^^AT statement Is not considered an error by 
FORTRAN. It should also be noted that the longest statement 
prodL'ced by FOR-SO Is only 52 characters long includJrsft- 
blankso Thus every statement generated by FOR" SO v;il1 fit 
on one card„ By adding the tKfo statements shovjn below the 
box one has a complete FORTRAM program. If this Is executed 
with tSie following data: 



Q.IOOOOOOOE 01 

•0,. :ioooooooE"Oi 
1 



0„20000000E 01 

•0o20000000E-0i 

2 



0o30000000E 01 
-OriOOOOOOOE-Ol 

3 

-3 



Ooi^-OOOOOOOE 01 
'Oc?>OGOOOOOE-01 
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the oiiiiipufc obtained 3s: 



ALPHA 


BE-("A 


EPS51M 


R 


. lOOOOOOOH 01 


.20000000E OX 


.30000000E 01 


.itOOOOOOOE Oi 


G 


H 


FR 


ONE 


o99999999E-02 


-o20000000E-01 


-c^OOOOOOOE-Ol 


-o39999g99E-01 


! 


J 


!< 


LAM I) A 


1 


2 


3 


h 


SOTA 


[<A 


LALPHA 


MAE 


-1 


2 


-3 


fj 



\t can be SGeiTf that the labe?s are rsriht'-justif ied on tap of 
each arithmetic fielrh 

FOR^SO v;as programmed v;? th the paff.'icular job described 
above in mlnd^ However^ \t 5s possible to raodrfy tUe 
statements It produces so that: they are useful ror other 

tasksc Par eKsniple,* aftar destroying the READ staternentis^ 
the rernslnlng statements generated by FOR-' 3 could be used 
for prujting out results.: Or after more severe 

wcdlf 5 cations one could even obtain statements for the hrptst 
and output of arrays c 

COHTJMUATSON CARDS: SUBROUTINE IL 

It vJcis Stated Jn the description of the FOR- 10 packase 
that the FORTRAM statements Jt produces are always shorter 
tiiSn 72 characters and thus wITi ?'it on one cardr In 

ganera'L- hovjever^ FORTRAN stateniGnts produced by a COM ST 
program need not satisfy this condJtSoric In that case^ 

continuat'on records are needad and the long statemerst villi 
have to ba accoiinodated on more than one carde Subroutine LL 
(for jLasia length) takess care of this task autorrjatlcall yc 

This wlVi be demonstrated by means of G:iamp'}eso For 

Instance^ If LL finds In the workspaces 

2S0 R's Cas separate constituents) -> '•"^c 

] t vjI I'l produces 

72R's{as separata ccrjstltuents )■>••••'„ 

<,^..:.w,3..-.'j.>..t^<:,i.-X-:.Q5|-j«s(ac separate ccnsti tuents}v^-, 

A.,-;....>„.}.«..5.^.:,.^2*!-65R''s(as separate corsst! tuents)-:---.- 

.i....j.»-.;,.»^.,.t,«,.:.-:i.-3<,ggfj « g (^s g eparate cons t i tuerjts }<--'-\. 

^.^^^..^^^c-^-Z'-'-i-cjiiA-ioii ' s (as separate cons 1 5 tuents )<■ ''• c 

Vjherj prh'jted or punched In CGMST fonfi;-Jt A this wITJ look Hke: 
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RRRRRRRRRRRRRRRRRRRRRRRFiRRRRfiRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRR 
IRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRj^pJiPJ^Rf? 
2RRRRRRRf?RRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRR«RRRRRRr{RRRRRRRRRRRR 
3RRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRR 
JiRRRRRRRRRR 

'if a sfcatement contains more than 666 characters It cannot 
be handled by means of continuation cards^ since FORTRAN 
allows only nine of them„ What should be done fn this case 
IS to break the 'iong statement into tv^o or more statements « 
This task requires a knov;1edge of the grammar of FORTRAN and 
is therefore rather difficult to profsranin What LL does in 
such a case can be seen from the following example which 
involves a statement consisting of 1000 R's: 

RRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRR 
IRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRR 
2RRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRnRRRRRRR 
3RRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRR 
/iRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRR 

SRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRR 
6RRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRR1RRRRRRRRRR 
7RRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRR 
8RRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRR 
9RRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRP 
ERRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRR 
ERRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRR 
ERRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRR 
ERRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRR 
ERRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRR 
ERRRR 

The E°s in column 5 indicate to the programmer that he 
should take care of this situation himself* In view of the 
Improbabtlity of a statement which cannot fit on 10 cards 
this is not a serious shortcominj? of LL. Furthermore^, 
should a subroutine become available for handling such 
statements it v;ould be possible to have LL treat the program 
first and then transfer to the other subroutine which v;ould 
only process statements having £"& in column 6c Subroutine 
LL recognizes comments and treats them differently than 
regular statements^ For example if it finds In the 
v;orkspace: 

C •> Sfj-BR^s (as separate const! tuents )■!-*„ 

the result would look likej 
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CRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRIIRRRP.RRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRR 

C RRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRR 

C RRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRFiRRRRRRRRRRRRRRRRRRRRRRRRR 

C RRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRR 

C RRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRR 

C RRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRR 

C RRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRR 

C RRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRR 

C RRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRR 

C RRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRR 

C RRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRR 

C RRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRR 

C RRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRR 

ContJnuatlon punches are not necessary for comment cards and 
there !s no limit on how long a comment can beo The R's in 
the above examples stand for any legal FORTRAN character or 
blankc They v^rere used^ since is v,?as much easier to generate 
long strings of R's rather than legal FORTRAN statements In 
the program for testing LL, 

APPEND 3 X 

A ISstSng of all the subroutines described 5n this memo 
may be found at the end of thSs appendtxo Before usln,^ any 
of themj, the comments that precede ft should be carefully 
studJedc Particular attention should be paid to the various 
sections of COiMIT pseudo-storage^ Ke,,^ vjorkspace and 
shelves^, that these routines require to be emptyc The user 
of these routines should avoid naming rules in his main 
program with rule names that appear in the routines he uses= 
8n general^ he should be particularly vjell aquaJnted v/ith 
the use of closed subroutines In COMiT (,9) » Me should also 
bear in mind that error detection or Teco\fery procedures 
have QQ^ been incorporated In these subroutines and 
consequently very erratic behavior may occur if they are 
improperly usedo Other than that they have been extensively 
tested and are believed to be free of errors* 
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,^, ^^ (CLOSED SUBROUTINE FOR^IO) 

<FINDS A LIST OF COMPRESSED FLOATIMG VARIABLE NAMES IN SHo 1 AND A ) 

(LIST OF FIXED ONES IN SHo 2) 

(FOR-IO DOES NOT SAVE THESE LISTS) 

(THE WS SHOULD BE EMPTY UPON ENTRY) 

(USES SHo 3» 49 5 AND 6 WHICH SHOULD BE EMPTY UPON ENTRY AND ARE i 

(ALSO EMPTY UPON RETURN) 

(RETURNS WITH A SET OF EXPANDED 10 STATEMENTS IN THE WS) 

(CALLS SUBROUTINES FOR~READ AND FORMAT) 

(FINDS ITS RETURN IN SH, 20j 



FIX 

RET 



FOR-READ 
FOR-READ 



(PROCESS FLOATING VARIABLES FIRST) 

FOR-IO // F0R»"I01 FLO ^ 

(GENERATE READ STATEMENTS OR RETURN) 

FOR-IOl FLO $-A/FOR-IO2//^^S20 l>-!5-Al IsFOR-lOl 

FIX =A/1T02 //•!JS20 1p4>A2 Is'FOR-IOl 

RET =iA+A //i'-Ae 2»«-N20 1 $ 
(CHANGE FORMAT NUMBERS FROM 1 TO 2 AFTER DESTROYING RETURN CONSTITUENT* 
1T02 S1=0 i* 

1T02L Sll-HJ-l+.'y+i^„ = l-;^Jf2+3+4//«Q3 12 3 4 1T02L 

* //*X3 FQRMATCALL 

(DESTROY RETURN CONSTITUENT) 

F0R~I02 Sl=0 ii 

(PUT READ STATEMENT IN SHo 3, PRINT STATEMENT IN SHo 4» REHATNING READ) 

(STATEMENTS IN SH, 5 AND CALL FORMAT) 

FORMATCALL S+R+E-J-A+D+S+-xs+S = l+2+3+4+5+6-i-7+8-M+PRINT+6-J-7-t-A/F0RMATCALLl- 

PnJvt?^"^'^^'^^'''''''^"^^ 12 3 4 5 6 7»^^E10,*04 9 10 11 12!.«05 8p«S20 13 = 

(ALL READ STATEMENTS PROCESSED) 

» F0R=I01 

(PUT FOUR 10 STATEMENTS IN SH. 6) 

FORMATCALLl Sl-!S=A-t-;>-}-A//-f^A3 1»*A4 3s>*Q6 1 2 3*^^X5 FORMATCALL 

(CLOSED SUBROUTINE FOR-READS 
(FINDS A LIST OF VARIABLE NAMES IN THE WS) 

(PRODUCES EXPANDED READ STATEMENTS WHICH IT LEAVES IN THE WSj 
(FOUR VARIABLES ARE READ IN PER STATEMENT AND ACCORDING TO FORMAT 1) 
(THE LAST STATEMENT READS IN THE REMAINING VARIABLES) 

(USES Sh{, 10 WHICH SHOULD BE EMPTY UPON ENTRY AND IS ALSO EMPTY UPON) 
(RETURN) 
(FOR-READ FINDS ITS RETURN IN SHo 20) 

(PRODUCE READ STATEMENTS READING FOUR VARIABLES) 

FOR-READ Sl.^si^$i+si = =-"READ-*l »-^l-!-s-+2-!-5-^■3-^P-^-4-4-:^„//■^>Q10 12 3 4 = 

5 6 7 8 9 FOR-READ ^ c p y 

(TAKE CARE OF REMAINING VARIABLES, PUT STATEMENTS IN WSJ 

* Sl-J-Sl-!-Sl=— —■ — READ-!a»is-!-i+9"-!-2-!-»"-'r3-!->o//->Q10 12 3 4 5 6 79«'X10 FOR"- 
READR 

* Sl-f-Sl=^"^«-.-READ-'^;l»--!-l + .-+2v*«//«Q10 12 3 4 5i.«xiO FORSREADR 
•5.' Sl = "«."«-.-.READ-»l»~-{-l-i-J^«//^"'Q10 1 2 3!>^:-XlO FOR-READR 

a- //-ifXlO •:} 

(EXPAND READ STATEMENTS^ RETURN) 
FOR-READR S=A-t-l//<fE29*N20 I S 

(CLOSED SUBROUTINE FORMAT) 
(FINDS IN THE WS A READ STATEMENT PRODUCED BY FOR=.READ AND PRODUCES) 
(A PRINT STATEMENT AND A FORMAT STATEMENT WHICH Wjll LABEL THE INPUT) 
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(DATA AMD LEAVES THEM EXPANDED IN THE WS } 

(CALLS SUBROUTINES COUNT AND STATN) 

(USES SHo 10 WHICH SHOULD BE EMPTY UPON ENTRY 

( RETURN i 

(FORMAT FINDS ITS RETURN IN SH« 20) 



AND IS ALSO EMPTY UP0N3 



(DESTROY PART OF READ STATEMENT, ADD FINAL COMMA) 
(AND MARKER AT BEGINNING OF WS) 

FORMAT S13+S-i'^f» = «M+2 S-) -^ 

(PRODUCE X AND H FIELDS FOR THE VARIABLES) 

FORMATL ^tMi— '^Sl-!•» = l■^-*l*7Xi^lH-^3■^4//^>0l0 2 3 



^^ 



4f 

(ALL 
(PUT 



2 

2 
2 
2 
2 



4 

4 
4 



FIELDS 



FORMATL 
FORMATL 
FORMATL 
FORMATL 
FORMATL 
FORMATL 
IN V^S} 



■:hM-i— +S2+» = l+-!f-l!t6X4!-2H-l-3->4//ifQl0 

■»-M^-»+s3-t->-l-n^l^^5XiJ3H+3-}-4//-i^Q10 

*M+-+ $4+ 9 = 1-t-* 1^.-4X-;K' H-^3-!-4/ /-itQ 10 

•>JM+=+S5+> = l-Ha!.^3X-:i-5H-5-3-{-4//-!fQ10 

-;s•M+".+ S6+9»l-!-*l^J2X■K-6H-^3■^4//^fOl0 
VARIABLES PROCESSED. pUT X AND H 
MARKER AT END OF WS) 
i-r iJM=A+l//^>AlO 1 -J.^ 

(REMOVE FINAL COMMA AND MARKERo COMPLETE AND NUMBER FORMAT STATEMENT? 

* S-}-5-f-t.'M=A/F0RMATP+A/STATN+F0RMAT«-(+l+'^)-!^o//«'S20 1 2 COUNT 

( PRODUCE PRINT STATEMENT^ RETURN) 

FORMATP $l+$-i--+$ = 2-!-2-!-3-i-4//*QlO 1 s"-E4 »^^X10 <J 

it S^A-J-"-— =PRINT— ^l+•!f^+A//-:^E2 9*A10 5s*N20 1 $ 

(CLOSED SUBROUTINE COUNT) 
(A VARIATION OF A SIMILAR PROGRAM OBTAINED FROM DRo 
(IT IS INITIALIZED BY INTRODUCING A NUMBER FOLLOWED 
^*N AND *P INTO SHELF 122o THIS STRING SHOULD BE THE 

SHELF 122 UPON ENTRY AND IT SHOULD BE FULLY EXPANDED^) 
(UPON EXIT FROM COUNT THE WoSo CONTAINS THE NUMBER THAT WAS PLACED 
SHo 122 INCREMENTED 3Y ONE FOLLOWED BY THE TWO MARKERS *N AND *P» - 
THIS STRING IS FULLY EXPANDED- IT IS FOLLOWED BY THE ORIGINAL CONTENTS 
OF THE WcSei 

(UPON EXIT SHo 122 ALSO CONTAINS THE STRING THAT WAS ADDED BY COUNT « 
TO THE BEGINNING OF THE W^S, ThUS FOR CONSECUTIVE NUMBER GENERATION - 
COUNT IS SELF-INITIALIZING) 

(UNLIKE DRo YNGVE'S VERSION INlTiAL ZEROES 
(COUNT FINDS ITS RETURN IN SHc 20) 



YNGVE ) 

BY THE MARKERS ^. 

ONLY CONTENTS 0F= 



IN 



ARE NOT NECESSARY) 



THE BEGINNING OF THE W»S, 
9* INCREMENT IT BY ONE) 



(PUT NUMBER AND MARKERS AT 

COUNT S~A-!-l//-i:-A122 1 ^^ 

(IF DIGIT BEFORE ^H IS NOT 

COUNT! ii-0-i-5:N=*l+2 PC 

it r,i^Mt^=i:-2-i-2 PC 

■^ ^<-2-.--'^N-^-«-3 + 2 PC 

« ■5!•3-^■u•N-^K-4•^2 PC 

■JJ ■K-4'S-K-N=-:5-5-t-2 PC 

-;f vv5+;:-Nai'<-6*2 PC 

4f *6-HfN='-!-7-:-2 PC 

if ^J7-!-:;-N=-5.'8+2 PC 

» «-8+55-N=»9+2 PC 

(IF IT IS 9» REPLACE IT BY A ZERO AFTER THE *N AND HANDLE CARRY BY 

GOING TO COUNT 1) 

* -x-9-v'-*N = 2->«0 COUNT 1 

(NO DIGIT To ADD CARRY Tq. ASSUME AN IMPLIED INITIAL ZERO) 
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(PUT ANY ZEROES AFTER ^:-N IN FRONT OF IT J 

PC ■:^N+£-;-!fP=2-MH-3 «• 

(LEAVE NEW NUMBER AND MARKERS AT THE BEGINNING OF W„So AND IN SHo 122o - 

RETURN} 

•!(• £■!•^-N+-:fP=l + 2•^3-l•l^f•2^•3//■JfQ122 1 2 3 9^vN20 1 Z 

(CLOSED SUBROUTINE STATN) 
(TO NUMBER A FORTRAN STATEMENT ONE SHOULD CALL COUNT LEAVING COLUMNS J 
(7~END OF STATEMENT IN THE WS ) 
(THEN CONTROL SHOULD BE TRANSFERRED DIRECTLY FROM THE RETURN OF COUNTS 

(To staTn Which will produce a statement having a legal colo1-6 field} 

(AND LEAVE IT IN THE WSJ 

(STaTN MUST BE NORMALLY CALLED BY A S,UPON ENTRY IT DESTROYS THE FIRST J 

(constituent of THE WS ) 

(STaTn finds its return IN SHo 20) 

(DESTROY RETURN CONSTITUENT^ ADD 5 BLANICS AFTER NUMBERo > 
STATN Sl+S-}-*N-!-»P = 2->- «— — ■}-3-!-4//JfE2 » 
(REMOVE EXCESS BLANKS AND MARKERS., RETURNc) 
•>'!■ S6-!-$+i;-N-5-<jp=A+l//^N20 1 s 

(CLOSED SUBROUTINE LL) 
(FINDS AN EXPANDED FORTRAN STATEMENT OR STATEMENTS IN THE W^Sc WHICH) 
(SHOULD NOT CONTAIN ANYTHING ELSE) 

(PRODUCES SEQUENTIALLY NUMBERED CONTINUATION CARDS FOR STATEMENTS WHICH) 
(ARE LONGER THAN 72 CHARACTERS) 

(IF A STATEMENT CANNOT BE ACCOMODATED .ON 10 CARDSi, LL WILL PRODUCE) 
(FURTHER CONTINUATION CARDS HAVING AN E IN COLUMN 6o WHENEVER THIS) 
(CONDITION OCCURS, THE USER MUST DEFINE A PART OR PARTS OF THE) 
(EXCESSIVELY LONG STATEMENT BY MEANS OF OTHER STATEMENTS? SO AS To ) 
(SHORTEN IT TO A LEGAL LENGTH) 

(COMMENTS ARE RECOGNlZEOo CONTINUATION CARDS FOR THEM HAVE A C IN) 
(COLUMN 1 FOLLOWED BY 5 BLANKS AND THEN TEXT Up To AND INCLUDING) 
(COLUMN 72) 

(LL RETURNS WiTH THE PROCESSED^ EXPANDED FORTRAN PROGRAM OR STATEMENT) 
(IN THE WoS<> READY To BE PUNCHED ON CARDSo FOR PRINTING A BLANK SHOULDS 
(BE INTRODUCED BEFORE EACH RECORD BY MEANS OF A RULE OF THE TYPE) 
( A S-f-:."^„='-}l-e-2//-^WAMl 2 3 A ) 

(LL USES SHELVES 1 AND 2 WHICH SHOULD BE EMPTY UPON ENTrY AMD ARE AlSO) 
(EMPTY UPON RETURN) 
(LL FINDS ITS RETURN IN SHo 20) 

(LEAVE ONLY FIRST STATEMENT IN W^S^o PLACE MARKER BEFORE IT) 

LL S-5-![-^+S=-;:M-f-l-J-2+3//-»Ql 4 LLC 

(PROGRAM PROCESSED* PUT IT IN WoS^a EXPAND IT AND RETURNS 

* S=A■i■^//'.m20 l9-:tA2 2i.^^E2 S 

(IS THIS A COMMENT) 

LLO ^M4-C=2 LLC 

(NO) 

-x- «M=0 LLl 

(YES) 

LLC S72-!-sl-f-S-:-^^o = l-^*oC'' =+2+3+4/ /^':-Q2 1 2 LLCL 

-> S=://*a2 l9-!^Xl LL 

LLCL S66+Sl+S+^>p = l+i('oC "-+2+3+4/ /i.-02 1 2 LLCL 

•5f S = //-J-Q2 ls^.'Xl LL 

(DOES STATEMENT FIT ON ONE CARD) 
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LLl S72+Sl•t•$+*o = l+^!■«.•='-"•"-'■i^l+2-!■3-5•'f//^^Q2 1 2 LL2 

<YES) 

^t £=//^.;-Q2 Is-^iXl LL 

(NOo DOES IT FIT ON TWO CARDS) 

LL2 S66+$l+S+vr« = l+^^o=- 4^2+2+3^4/ /^'■■Q2 1 2 LL3 

(YESJ 

v<- $ = //^*02 1»*X1 LL 

(NOo DOES IT FIT ON THREE CARDS) 

LL3 $66+Sl-5-S+^i-<. = l+*o« — "— 5^3+2 + 3+4/ /■:<-02 1 2 LL4 

* S = //-*Q2 1»^!-X1 LL 

LL4 S66-5-Sl-!-S-«-;''c = l+*<."«'"--5^4+2+3+4//«-Q2 1 2 LL5 

•«• S = //^02 l»i<-Xl LL 

LL5 S66 + Sl-^S+«-o = l+*«,=-»"""-«-5+2+3-J-4//^^Q2 1 2 LL6 

■:f S = //-!J02 l»i^Xl LL 

LL6 £66+Sl+$+*o==l•^*o=^- ■»6+2+3+4//---02 1 2 LL7 

-;:- S=//i:-02 Is^^Xl LL 

LL7 see+Sl+S-i-i^o^l+^o- *7+2-5-3+4//>'rQ2 1 2 LL8 

ir S=://-:JQ2 1««-X1 LL 

LL8 S66-}-SH-$5-«-o = l+*<»°='='"°-'*8+2+3-!-4//-i;Q2 1 2 LL9 

■> s = //4J^02 1»^JX1 LL 

LL9 s66+Sl'?-£-i-;''. = H-«-o"^ ■rt9+2H-3+4//*02 1 2 LLE 

ii- S=://«02 15^X1 LL 

(DOES IT FIT ON 10 CARDS) 

LLE S66■^•£l•^S■^■^o = i+^^o^-■'■"♦*E +2+3+4//^JQ2 1 2 LLE 

Vc S=//%Q,2 1»^'X1 LL 
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